﻿Public Class clsProdLhInfo
    Public Function insert(en As entityProdLhInfo) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer
        sql &= "INSERT INTO sf.b_prod_lh_info( factory_id , prod_id , lh_result , "
        sql &= "abnormal_type , abnormal_content , show_time , oper_result , "
        sql &= "oper_finish_time , operator , update_time) "
        sql &= "VALUES ( ? , ? , ? , ? , ? , ? , ? , ?, ?, (SELECT CURRENT_TIMESTAMP(6)))"
        With en
            rtn = DBacs.ExecuteUpdateSql(sql, -1, .factory_id, .prod_id, .lh_result,
                                         .abnormal_type, .abnormal_content, .show_time, .oper_result,
                                         .oper_finish_time, .oper)
        End With
        Return rtn
    End Function
End Class
